home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / CIAFSU4B.ZIP / CIAFSUE.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-04-22  |  13KB  |  702 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN004
  20.     Boolean  BOOLEAN005
  21.     Boolean  BOOLEAN006
  22.     Boolean  BOOLEAN007
  23.     Boolean  BOOLEAN008
  24.     Boolean  BOOLEAN009
  25.     Date     DATE002
  26.     Integer  INTEGER004
  27.     Integer  INTEGER005
  28.     Integer  INTEGER006
  29.     Integer  INTEGER007
  30.     Integer  INTEGER008
  31.     Integer  INTEGER009
  32.     String   STRING010
  33.     String   STRING011
  34.     String   STRING012
  35.     String   STRING013
  36.     String   STRING014
  37.     String   STRING015
  38.     String   STRING016
  39.     String   STRING017
  40.     String   STRING018
  41.     String   STRING019
  42.     String   STRING020
  43.  
  44. ;------------------------------------------------------------------------------
  45.  
  46.     STRING015 = "                  "
  47.     BOOLEAN006 = 1
  48.     BOOLEAN005 = 0
  49.     STRING011 = PPEPath() + "CIAFSUE.CNF"
  50.     STRING010 = ReadLine(STRING011, 1)
  51.     STRING016 = ReadLine(STRING011, 2)
  52.     STRING018 = ReadLine(STRING011, 3)
  53.     STRING017 = ReadLine(STRING011, 4)
  54.     STRING020 = ReadLine(STRING011, 5)
  55.     GetUser
  56.     STRING012 = U_Name()
  57.     INTEGER004 = U_Bdl()
  58.     INTEGER005 = U_Bul()
  59.     INTEGER006 = U_Ful()
  60.     INTEGER007 = U_Fdl()
  61.     DATE002 = DATE002
  62.     INTEGER008 = U_TimeOn()
  63.     If ((STRING010 >= U_Sec) || (U_Name() == "DEFCON 4")) Goto LABEL001
  64.     PrintLn "@X0F[@X07@X87Security Violation @X0F■ @X87Exiting CiA Full Screen User Editor @X0F]"
  65.     Goto LABEL016
  66.     :LABEL001
  67.     PrintLn "@CLS@@X07"
  68.     PrintLn "@X0F         @X0D■@X07■@X0F■  @X07CiA Full Screen User Editor v4.0 by Defcon 4 [Ci/┤]  @X0F■@X07■@X0D■"
  69.     PrintLn "@X05┌─────────────────────────── @X07User Number @X08[  @X08 ] @X05───────────────────────────────┐"
  70.     PrintLn "│ @X07[@X0FA@X07] Handle     @X08[                    ]@X05│@X07[@X0FL@X07] Security     @X08[                  ] @X05│"
  71.     PrintLn "│ @X07[@X0FB@X07] Address    @X08[                    ]@X05│@X07[@X0FM@X07] Expired Sec. @X08[                  ] @X05│"
  72.     PrintLn "│ @X07[@X0FC@X07] City @X08      [                    ]@X05│@X07[@X0FN@X07] Reg. Ex. Date@X08[                  ] @X05│"
  73.     PrintLn "│ @X07[@X0FD@X07] State      @X08[                    ]@X05│@X07[@X0FO@X07] # of U/Ls    @X08[                  ] @X05│"
  74.     PrintLn "│ @X07[@X0FE@X07] Note@X08 [                         @X08 ]@X05│@X07[@X0FP@X07] # of D/Ls    @X08[                  ] @X05│"
  75.     PrintLn "│ @X07[@X0FF@X07] Voice Phone@X08[                    ]@X05│@X07[@X0FR@X07] Bytes U/L    @X08[                  ] @X05│"
  76.     PrintLn "│ @X07[@X0FG@X07] Data Phone @X08[                    ]@X05│@X07[@X0FS@X07] Bytes D/L    @X08[                  ] @X05│"
  77.     PrintLn "│ @X07[@X0FH@X07] Expert Mode@X08[                    ]@X05│@X07[@X0FT@X07] File Ratio   @X08[                  ] @X05│"
  78.     PrintLn "│ @X07[@X0FI@X07] Protocol   @X08[                    ]@X05│@X07[@X0FU@X07] Byte Ratio   @X08[                  ] @X05│"
  79.     PrintLn "│ @X07[@X0FJ@X07] Page Length@X08[                    ]@X05│@X07[@X0FV@X07] Full Screen  @X08[                  ] @X05│"
  80.     PrintLn "│ @X07[@X0FK@X07] Real Name  @X08[                    ]@X05│@X07[@X0FW@X07] Password     @X08[                  ] @X05│"
  81.     PrintLn "├──────────────────────────────────────┴──────────────────────────────────────┤"
  82.     PrintLn "│ @X07[@X0FX@X07] Comment 1  @X08[                                                          ] @X05│"
  83.     PrintLn "│ @X07[@X0FY@X07] Comment 2  @X08[                                                          ] @X05│"
  84.     PrintLn "└─────────────────────────────────────────────────────────────────────────────┘"
  85.     PrintLn " @X07   [@X0FA-X@X07] Edit Field [@X0F+@X07] Next User [@X0F-@X07] Previous User [@X0F=@X07] User Jump [@X0FQ@X07]uit"
  86.     PrintLn "        [@X0F*@X07] Auto Validate [@X0F%@X07] SysOp Sec. [@X0F!@X07] Lock Out [@X0F?@X07] Name Search"
  87.     :LABEL002
  88.     AnsiPos 43, 3
  89.     Print U_RecNum(U_Name())
  90.     AnsiPos 19, 4
  91.     Print U_Name()
  92.     AnsiPos 19, 5
  93.     Print U_Addr(0)
  94.     AnsiPos 19, 6
  95.     Print U_Addr(2)
  96.     AnsiPos 19, 7
  97.     Print U_Addr(3)
  98.     AnsiPos 13, 8
  99.     Print U_City
  100.     AnsiPos 19, 9
  101.     Print U_HVPhone
  102.     AnsiPos 19, 10
  103.     Print U_BDPhone
  104.     AnsiPos 19, 11
  105.     Print "  "
  106.     AnsiPos 19, 11
  107.     If (U_Expert == 1) Print "On"
  108.     If (U_Expert == 0) Print "Off"
  109.     AnsiPos 19, 12
  110.     Print U_Trans
  111.     AnsiPos 19, 13
  112.     Print U_PageLen
  113.     AnsiPos 19, 14
  114.     Print U_Ver
  115.     AnsiPos 19, 16
  116.     Print U_Cmnt1
  117.     AnsiPos 19, 17
  118.     Print U_Cmnt2
  119.     AnsiPos 59, 4
  120.     Print STRING015
  121.     AnsiPos 59, 4
  122.     Print U_Sec
  123.     AnsiPos 59, 5
  124.     Print U_ExpSec
  125.     AnsiPos 59, 6
  126.     Print U_ExpDate
  127.     AnsiPos 59, 7
  128.     Print INTEGER006
  129.     AnsiPos 59, 8
  130.     Print U_Fdl()
  131.     AnsiPos 59, 9
  132.     Print INTEGER005
  133.     AnsiPos 59, 10
  134.     Print U_Bdl()
  135.     AnsiPos 59, 11
  136.     Print "@FILERATIO@"
  137.     AnsiPos 59, 12
  138.     Print "@BYTERATIO@"
  139.     AnsiPos 59, 13
  140.     Print "  "
  141.     AnsiPos 59, 13
  142.     If (U_FSEP == 0) Then
  143.         If (U_FSE == 0) Print "No"
  144.         If (U_FSE == 1) Print "Yes"
  145.     Else
  146.         If (U_FSEP == 1) Print "Ask"
  147.     Endif
  148.     AnsiPos 59, 14
  149.     Print U_Pwd
  150.     If (BOOLEAN005 == 1) Return
  151.     :LABEL003
  152.     If (BOOLEAN004) Goto LABEL016
  153.     STRING014 = ""
  154.     :LABEL004
  155.     STRING013 = Upper(Inkey())
  156.     If (STRING013 == "") Goto LABEL004
  157.     If (STRING013 == "A") Then
  158.         AnsiPos 19, 4
  159.         Print STRING015
  160.         AnsiPos 19, 4
  161.         STRING014 = ""
  162.         InputStr "_", STRING014, 14, 20, Mask_Ascii(), 2 + 4 + 4096
  163.         If (STRING014 <> "") Then
  164.             STRING012 = STRING014
  165.             PutUser
  166.             Goto LABEL005
  167.         Endif
  168.     Endif
  169.     :LABEL005
  170.     If (STRING013 == "B") Then
  171.         AnsiPos 19, 5
  172.         Print STRING015
  173.         AnsiPos 19, 5
  174.         STRING014 = ""
  175.         InputStr "_", STRING014, 14, 20, Mask_Ascii(), 2 + 4 + 4096
  176.         If (STRING014 <> "") Then
  177.             U_Addr(0) = STRING014
  178.             PutUser
  179.             Goto LABEL006
  180.         Endif
  181.     Endif
  182.     :LABEL006
  183.     If (STRING013 == "C") Then
  184.         AnsiPos 19, 6
  185.         Print STRING015
  186.         AnsiPos 19, 6
  187.         STRING014 = ""
  188.         InputStr "_", STRING014, 14, 20, Mask_Ascii(), 2 + 4 + 4096
  189.         If (STRING014 <> "") Then
  190.             U_Addr(2) = STRING014
  191.             PutUser
  192.             Goto LABEL007
  193.         Endif
  194.     Endif
  195.     :LABEL007
  196.     If (STRING013 == "D") Then
  197.         AnsiPos 19, 7
  198.         Print STRING015
  199.         AnsiPos 19, 7
  200.         STRING014 = ""
  201.         InputStr "_", STRING014, 14, 20, Mask_Ascii(), 2 + 4 + 4096
  202.         If (STRING014 <> "") Then
  203.             U_Addr(3) = STRING014
  204.             PutUser
  205.             Goto LABEL008
  206.         Endif
  207.     Endif
  208.     :LABEL008
  209.     If (STRING013 == "E") Then
  210.         AnsiPos 13, 8
  211.         Print STRING015
  212.         AnsiPos 13, 8
  213.         STRING014 = ""
  214.         InputStr "_", STRING014, 14, 20, Mask_Ascii(), 2 + 4 + 4096
  215.         If (STRING014 <> "") Then
  216.             U_City = STRING014
  217.             PutUser
  218.             Goto LABEL009
  219.         Endif
  220.     Endif
  221.     :LABEL009
  222.     If (STRING013 == "F") Then
  223.         AnsiPos 19, 9
  224.         Print STRING015
  225.         AnsiPos 19, 9
  226.         STRING014 = ""
  227.         InputStr "_", STRING014, 14, 20, Mask_Ascii(), 2 + 4 + 4096
  228.         If (STRING014 <> "") Then
  229.             U_HVPhone = STRING014
  230.             PutUser
  231.             Goto LABEL010
  232.         Endif
  233.     Endif
  234.     :LABEL010
  235.     If (STRING013 == "G") Then
  236.         AnsiPos 19, 10
  237.         Print STRING015
  238.         AnsiPos 19, 10
  239.         STRING014 = ""
  240.         InputStr "_", STRING014, 14, 20, Mask_Ascii(), 2 + 4 + 4096
  241.         If (STRING014 <> "") Then
  242.             U_BDPhone = STRING014
  243.             PutUser
  244.             Goto LABEL011
  245.         Endif
  246.     Endif
  247.     :LABEL011
  248.     If (STRING013 == "H") Then
  249.         AnsiPos 19, 11
  250.         Print STRING015
  251.         AnsiPos 19, 11
  252.         STRING014 = ""
  253.         InputStr "_", STRING014, 14, 20, "YyNn", 2 + 4 + 4096
  254.         If (STRING014 == "Y") U_Expert = 1
  255.         If (STRING014 == "N") U_Expert = 0
  256.         PutUser
  257.     Endif
  258.     If (STRING013 == "I") Then
  259.         AnsiPos 19, 12
  260.         InputStr "_", STRING014, 14, 20, Mask_Ascii(), 2 + 4 + 4096
  261.         U_Trans = STRING014
  262.         PutUser
  263.     Endif
  264.     If (STRING013 == "J") Then
  265.         AnsiPos 19, 13
  266.         InputStr "_", STRING014, 14, 20, Mask_Ascii(), 2 + 4 + 4096
  267.         U_PageLen = STRING014
  268.         PutUser
  269.     Endif
  270.     If (STRING013 == "K") Then
  271.         AnsiPos 19, 14
  272.         Print STRING015
  273.         AnsiPos 19, 14
  274.         InputStr "_", STRING014, 14, 20, Mask_Ascii(), 2 + 4 + 4096
  275.         If (STRING014 <> "") Then
  276.             U_Ver = STRING014
  277.             PutUser
  278.             Goto LABEL012
  279.         Endif
  280.     Endif
  281.     :LABEL012
  282.     If (STRING013 == "L") Then
  283.         AnsiPos 59, 4
  284.         Print STRING015
  285.         AnsiPos 59, 4
  286.         STRING014 = ""
  287.         InputStr "_", STRING014, 14, 20, Mask_Ascii(), 2 + 4 + 4096
  288.         If (STRING014 <> "") Then
  289.             U_Sec = STRING014
  290.             PutUser
  291.             Goto LABEL013
  292.         Endif
  293.     Endif
  294.     :LABEL013
  295.     If (STRING013 == "M") Then
  296.         AnsiPos 59, 5
  297.         Print STRING015
  298.         AnsiPos 59, 5
  299.         STRING014 = ""
  300.         InputStr "_", STRING014, 14, 20, Mask_Ascii(), 2 + 4 + 4096
  301.         If (STRING014 <> "") Then
  302.             U_ExpSec = STRING014
  303.             PutUser
  304.         Endif
  305.     Endif
  306.     If (STRING013 == "N") Then
  307.         AnsiPos 59, 6
  308.         InputStr "_", STRING014, 14, 20, Mask_Ascii(), 2 + 4 + 4096
  309.         U_ExpDate = STRING014
  310.         PutUser
  311.     Endif
  312.     If (STRING013 == "O") Then
  313.         AnsiPos 59, 7
  314.         Print "Unchangable Field"
  315.         Delay 15
  316.         AnsiPos 59, 7
  317.         Print STRING015
  318.     Endif
  319.     If (STRING013 == "P") Then
  320.         AnsiPos 59, 8
  321.         Print STRING015
  322.         AnsiPos 59, 8
  323.         STRING014 = ""
  324.         InputStr "_", STRING014, 14, 20, Mask_Ascii(), 2 + 4 + 4096
  325.         If (STRING014 <> "") Then
  326.             INTEGER007 = STRING014 - INTEGER007
  327.             AdjTFiles INTEGER007
  328.             PutUser
  329.         Endif
  330.     Endif
  331.     If (STRING013 == "R") Then
  332.         AnsiPos 59, 9
  333.         Print "Unchangable Field"
  334.         Delay 15
  335.         AnsiPos 59, 9
  336.         Print STRING015
  337.     Endif
  338.     If (STRING013 == "S") Then
  339.         AnsiPos 59, 10
  340.         Print STRING015
  341.         AnsiPos 59, 10
  342.         STRING014 = ""
  343.         InputStr "_", STRING014, 14, 20, Mask_Ascii(), 2 + 4 + 4096
  344.         If (STRING014 <> "") Then
  345.             INTEGER004 = STRING014 - INTEGER004
  346.             AdjTBytes INTEGER004
  347.             PutUser
  348.         Endif
  349.     Endif
  350.     If (STRING013 == "T") Then
  351.         AnsiPos 59, 11
  352.         Print "Unchangable Field"
  353.         Delay 15
  354.         AnsiPos 59, 11
  355.         Print STRING015
  356.     Endif
  357.     If (STRING013 == "U") Then
  358.         AnsiPos 59, 12
  359.         Print "Unchangable Field"
  360.         Delay 15
  361.         AnsiPos 59, 12
  362.         Print STRING015
  363.     Endif
  364.     If (STRING013 == "V") Then
  365.         AnsiPos 59, 13
  366.         Print STRING015
  367.         AnsiPos 59, 13
  368.         STRING014 = ""
  369.         InputStr "_", STRING014, 14, 20, "YyNnAa", 2 + 4 + 4096
  370.         If (STRING014 == "Y") Then
  371.             U_FSEP = 0
  372.             U_FSE = 1
  373.         Endif
  374.         If (STRING014 == "N") Then
  375.             U_FSEP = 0
  376.             U_FSE = 0
  377.         Endif
  378.         If (STRING014 == "A") U_FSEP = 1
  379.         PutUser
  380.     Endif
  381.     If (STRING013 == "W") Then
  382.         AnsiPos 59, 14
  383.         Print STRING015
  384.         AnsiPos 59, 14
  385.         STRING014 = ""
  386.         InputStr "_", STRING014, 14, 20, Mask_Ascii(), 2 + 4 + 4096
  387.         If (STRING014 <> "") Then
  388.             U_Pwd = STRING014
  389.             PutUser
  390.             Goto LABEL014
  391.         Endif
  392.     Endif
  393.     :LABEL014
  394.     If (STRING013 == "X") Then
  395.         AnsiPos 19, 16
  396.         Print STRING015
  397.         Print STRING015
  398.         AnsiPos 19, 16
  399.         STRING014 = ""
  400.         InputStr "_", STRING014, 14, 40, Mask_Ascii(), 2 + 4 + 4096
  401.         If (STRING014 <> "") Then
  402.             U_Cmnt1 = STRING014
  403.             PutUser
  404.         Endif
  405.     Endif
  406.     If (STRING013 == "Y") Then
  407.         AnsiPos 19, 17
  408.         Print STRING015
  409.         Print STRING015
  410.         AnsiPos 19, 17
  411.         STRING014 = ""
  412.         InputStr "_", STRING014, 14, 40, Mask_Ascii(), 2 + 4 + 4096
  413.         If (STRING014 <> "") Then
  414.             U_Cmnt2 = STRING014
  415.             PutUser
  416.         Endif
  417.     Endif
  418.     If (STRING013 == "+") Then
  419.         INTEGER009 = U_RecNum(U_Name())
  420.         INTEGER009 = INTEGER009 + 1
  421.         GetAltUser INTEGER009
  422.         If (CurUser() == -1) GetAltUser 1
  423.         BOOLEAN005 = 1
  424.         Gosub LABEL001
  425.     Endif
  426.     If (STRING013 == "-") Then
  427.         INTEGER009 = U_RecNum(U_Name())
  428.         INTEGER009 = INTEGER009 - 1
  429.         GetAltUser INTEGER009
  430.         If (CurUser() == -1) GetAltUser 1
  431.         BOOLEAN005 = 1
  432.         Gosub LABEL001
  433.     Endif
  434.     If (STRING013 == "=") Then
  435.         AnsiPos 24, 21
  436.         InputStr "Enter User Number to Jump To", STRING014, 14, 3, "1234567890", 2 + 4 + 4096
  437.         GetAltUser STRING014
  438.         BOOLEAN005 = 1
  439.         Gosub LABEL001
  440.     Endif
  441.     If (STRING013 == "!") Then
  442.         U_Sec = STRING017
  443.         PutUser
  444.     Endif
  445.     If (STRING013 == "*") Then
  446.         U_Sec = STRING018
  447.         PutUser
  448.     Endif
  449.     If (STRING013 == "%") Then
  450.         U_Sec = STRING016
  451.         PutUser
  452.     Endif
  453.     If (STRING013 == "?") Then
  454.         AnsiPos 24, 21
  455.         Print "                                                                  "
  456.         AnsiPos 24, 21
  457.         Print "@X07List all users on system?"
  458.         AnsiPos 50, 21
  459.         Print "@X1FYES"
  460.         AnsiPos 55, 21
  461.         Print "@X08NO"
  462.         BOOLEAN007 = 1
  463.         BOOLEAN008 = 1
  464.         STRING019 = ""
  465.         While (BOOLEAN008) Do
  466.             While (STRING019 == "") Do
  467.                 STRING019 = Inkey()
  468.             EndWhile
  469.             If (((STRING019 == "LEFT") || (STRING019 == "RIGHT")) || (STRING019 == Chr(13))) Then
  470.                 If (STRING019 == Chr(13)) Break
  471.                 If ((STRING019 == "RIGHT") && (BOOLEAN007 == 1)) Then
  472.                     AnsiPos 50, 21
  473.                     Print "@X08YES"
  474.                     AnsiPos 55, 21
  475.                     Print "@X1FNO"
  476.                     BOOLEAN007 = 0
  477.                     STRING019 = ""
  478.                 Endif
  479.                 If ((STRING019 == "LEFT") && (BOOLEAN007 == 1)) Then
  480.                     AnsiPos 50, 21
  481.                     Print "@X08YES"
  482.                     AnsiPos 55, 21
  483.                     Print "@X1FNO"
  484.                     BOOLEAN007 = 0
  485.                     STRING019 = ""
  486.                 Endif
  487.                 If ((STRING019 == "LEFT") && (BOOLEAN007 == 0)) Then
  488.                     AnsiPos 50, 21
  489.                     Print "@X1FYES"
  490.                     AnsiPos 55, 21
  491.                     Print "@X08NO"
  492.                     BOOLEAN007 = 1
  493.                     STRING019 = ""
  494.                 Endif
  495.                 If ((STRING019 == "RIGHT") && (BOOLEAN007 == 0)) Then
  496.                     AnsiPos 50, 21
  497.                     Print "@X1FYES"
  498.                     AnsiPos 55, 21
  499.                     Print "@X08NO"
  500.                     BOOLEAN007 = 1
  501.                     STRING019 = ""
  502.                 Endif
  503.             Endif
  504.             STRING019 = ""
  505.         EndWhile
  506.         If (BOOLEAN007 == 1) Then
  507.             PrintLn "@CLS@"
  508.             STRING014 = ""
  509.             InputStr "List [A]ll Users [N]ew Users [S]ysop's [L]ocked users?_", STRING014, 14, 20, "aASsLlNn", 2 + 4 + 4096 + 8
  510.             Newlines 1
  511.             If (STRING014 == "") Then
  512.                 BOOLEAN005 = 1
  513.                 Gosub LABEL001
  514.             Endif
  515.             If (STRING014 == "A") Then
  516.                 BOOLEAN008 = 1
  517.                 INTEGER009 = 1
  518.                 While (BOOLEAN008) Do
  519.                     GetAltUser INTEGER009
  520.                     If (CurUser() == -1) Break
  521.                     PrintLn U_Name()
  522.                     INTEGER009 = INTEGER009 + 1
  523.                 EndWhile
  524.                 Newlines 1
  525.                 BOOLEAN009 = 1
  526.                 Gosub LABEL018
  527.             Endif
  528.             If (STRING014 == "N") Then
  529.                 BOOLEAN008 = 1
  530.                 INTEGER009 = 2
  531.                 While (BOOLEAN008) Do
  532.                     GetAltUser INTEGER009
  533.                     If (CurUser() == -1) Break
  534.                     If (STRING020 == U_Sec) PrintLn U_Name()
  535.                     INTEGER009 = INTEGER009 + 1
  536.                 EndWhile
  537.                 Newlines 1
  538.                 BOOLEAN009 = 1
  539.                 Gosub LABEL018
  540.             Endif
  541.             If (STRING014 == "S") Then
  542.                 BOOLEAN008 = 1
  543.                 INTEGER009 = 1
  544.                 While (BOOLEAN008) Do
  545.                     GetAltUser INTEGER009
  546.                     If (CurUser() == -1) Break
  547.                     If (STRING016 == U_Sec) PrintLn U_Name()
  548.                     INTEGER009 = INTEGER009 + 1
  549.                 EndWhile
  550.                 BOOLEAN009 = 1
  551.                 Newlines 1
  552.                 Gosub LABEL018
  553.             Endif
  554.             If (STRING014 == "L") Then
  555.                 BOOLEAN008 = 1
  556.                 INTEGER009 = 1
  557.                 While (BOOLEAN008) Do
  558.                     GetAltUser INTEGER009
  559.                     If (CurUser() == -1) Break
  560.                     If (STRING017 == U_Sec) PrintLn U_Name()
  561.                     INTEGER009 = INTEGER009 + 1
  562.                 EndWhile
  563.                 BOOLEAN009 = 1
  564.                 Newlines 1
  565.                 Gosub LABEL018
  566.             Endif
  567.             Goto LABEL015
  568.         Endif
  569.         Gosub LABEL017
  570.     Endif
  571.     :LABEL015
  572.     If (STRING013 == "Q") BOOLEAN004 = 1
  573.     BOOLEAN005 = 1
  574.     Gosub LABEL002
  575.     Goto LABEL003
  576.     :LABEL016
  577.     AnsiPos 0, 23
  578.     End
  579.     :LABEL017
  580.     AnsiPos 6, 21
  581.     Print "@X0F                                                                          "
  582.     AnsiPos 14, 21
  583.     :LABEL018
  584.     STRING014 = ""
  585.     InputStr "Enter User Name to Jump To", STRING014, 14, 20, Mask_Ascii(), 2 + 4 + 4096 + 8
  586.     If (Len(STRING014) > 1) Then
  587.         INTEGER009 = U_RecNum(STRING014)
  588.         If (INTEGER009 == -1) Then
  589.             AnsiPos 26, 22
  590.             Print "Invalid User"
  591.             Delay 15
  592.             AnsiPos 26, 22
  593.             Print STRING015
  594.             If (BOOLEAN009 == 0) Then
  595.                 Goto LABEL018
  596.             Else
  597.                 Goto LABEL017
  598.             Endif
  599.         Else
  600.             GetAltUser INTEGER009
  601.             BOOLEAN005 = 1
  602.             Gosub LABEL001
  603.         Endif
  604.     Else
  605.         AnsiPos 12, 21
  606.         Print "                                                                  "
  607.         Goto LABEL001
  608.     Endif
  609.     Return
  610.  
  611. ;------------------------------------------------------------------------------
  612. ;
  613. ; Usage report (before postprocessing)
  614. ;
  615. ; ■ Statements used :
  616. ;
  617. ;    1       End
  618. ;    103     Goto 
  619. ;    105     Let 
  620. ;    74      Print 
  621. ;    26      PrintLn 
  622. ;    92      If 
  623. ;    1       GetUser
  624. ;    23      PutUser
  625. ;    23      InputStr 
  626. ;    11      Gosub 
  627. ;    2       Return
  628. ;    5       Delay 
  629. ;    5       Newlines 
  630. ;    92      AnsiPos 
  631. ;    10      GetAltUser 
  632. ;    1       AdjTBytes 
  633. ;    1       AdjTFiles 
  634. ;
  635. ;
  636. ; ■ Functions used :
  637. ;
  638. ;    7       -
  639. ;    54      +
  640. ;    3       -
  641. ;    76      ==
  642. ;    15      <>
  643. ;    1       >
  644. ;    1       >=
  645. ;    70      !
  646. ;    4       &&
  647. ;    3       ||
  648. ;    1       Len(
  649. ;    1       Upper()
  650. ;    2       Chr()
  651. ;    10      U_Name()
  652. ;    1       U_Ful()
  653. ;    2       U_Fdl()
  654. ;    1       U_TimeOn()
  655. ;    2       U_Bdl()
  656. ;    1       U_Bul()
  657. ;    2       Inkey()
  658. ;    19      Mask_Ascii()
  659. ;    1       PPEPath()
  660. ;    5       ReadLine()
  661. ;    4       U_RecNum()
  662. ;    6       CurUser()
  663. ;
  664. ;------------------------------------------------------------------------------
  665. ;
  666. ; Analysis flags : WRaH
  667. ;
  668. ; W - Write user ■ 5
  669. ;     Program writes a user record. Although this may be normal for a
  670. ;     User Editor, it may also be a way to modify an account level.
  671. ;     ■ Search for : PUTUSER
  672. ;
  673. ; R - Read user ■ 5
  674. ;     User records are read, this may signify that someone wants to get
  675. ;     various informations about a user (for example his password), but
  676. ;     this may also be normal for a program accessing user records (for
  677. ;     example a User Editor)
  678. ;     ■ Search for : GETALTUSER
  679. ;
  680. ; a - Adjust ratio ■ 4
  681. ;     User's ratio is adjusted by changing the amount of files/bytes
  682. ;     uploaded. This may be normal for a user editor.
  683. ;     ■ Search for : ADJBYTES, ADJDBYTES, ADJTBYTES, ADJTFILES
  684. ;
  685. ; H - Read Password or Password History ■ 5
  686. ;     Program is reading the user's password or last password history
  687. ;     This may be ok for a password manager, but it is very suspect. Check!
  688. ;     ■ Search for : U_PWDHIST, U_PWD
  689. ;
  690. ;------------------------------------------------------------------------------
  691. ;
  692. ; Postprocessing report
  693. ;
  694. ;    0       For/Next
  695. ;    6       While/EndWhile
  696. ;    63      If/Then or If/Then/Else
  697. ;    0       Select Case
  698. ;
  699. ;------------------------------------------------------------------------------
  700. ;                 AEGiS Corp - Break the routines, code against the machines!
  701. ;------------------------------------------------------------------------------
  702.